(A) Fraction of transpirable soil water (FTSW). (B) Daily transpiration in 15 potato genotypes under well-watered (WW) and water deficit (WD) condition.
9 Figure 2
# tdwmodel <- fb %>% inti::mean_comparison(response ="tdw" , model_factors ="block + gnt*treat" , c("gnt","treat"))tdw <- model$comparison %>%plot_smr(type ="bar" , color = F , x ="gnt" , xlab ="" , y ="tdw" , ylab ="Tuber dry weight (g)" , group ="treat" , glab ="Treatment" , legend ="none" , error ="ste" , ylimits =c(0, 100, 20) )# rccmodel <- fb %>% inti::mean_comparison(response ="rcc" , model_factors ="block + gnt*treat" , c("gnt","treat"))rcc <- model$comparison %>%plot_smr(type ="bar" , color = F , x ="gnt" , xlab ="" , y ="rcc" , ylab ="Relative chlorophyll content" , ylimits =c(0, 0.1, 0.02) , group ="treat" , glab ="Treatment" , legend ="none" , error ="ste" ) # himodel <- fb %>% inti::mean_comparison(response ="hi" , model_factors ="block + gnt*treat" , c("gnt","treat"))hi <- model$comparison %>%plot_smr(type ="bar" , color = F , x ="gnt" , xlab ="" , y ="hi" , ylab ="Harvest Index" , group ="treat" , glab ="Treatment" , legend ="none" , ylimits =c(0, 1, 0.2) , error ="ste" ) # wue_tmodel <- fb %>% inti::mean_comparison(response ="wue_t" , model_factors ="block + gnt*treat" , c("gnt","treat"))wue_t <- model$comparison %>%plot_smr(type ="bar", color = F , x ="gnt" , xlab ="" , y ="wue_t" , ylab ="Tuber water use efficiency (g/L)" , group ="treat" , glab ="Treatment" , legend ="none" , ylimits =c(0, 10, 2) , error ="ste" ) # spad_29model <- fb %>% inti::mean_comparison(response ="spad_29" , model_factors ="block + gnt*treat" , c("gnt","treat"))spad_29 <- model$comparison %>%mutate(treat =case_when( treat =="WD"~"Water Deficit (WD)" , treat =="WW"~"Well Watered (WW)" )) %>%plot_smr(type ="line" , x ="gnt" , xlab ="" , y ="spad_29" , ylab ="SPAD at 29 dap" , group ="treat" , glab ="Treatment" , legend ="top" , ylimits =c(30, 70, 5) , error ="ste" , color = F )# spad_83model <- fb %>% inti::mean_comparison(response ="spad_83" , model_factors ="block + gnt*treat" , c("gnt","treat"))spad_83 <- model$comparison %>%plot_smr(type ="line", color = F , x ="gnt" , xlab ="" , y ="spad_83" , ylab ="SPAD at 83 dap" , group ="treat" , glab ="Treatment" , legend="none" , ylimits =c(30, 70, 5) , error ="ste" ) plot <-ggdraw(xlim =c(0.0, 1), ylim =c(0.0, 1)) +draw_plot(spad_29 , width =0.49, height =0.35, x =0.0, y =0.6) +draw_plot(spad_83, width =0.49, height =0.3, x =0.5, y =0.6) +draw_plot(rcc, width =0.49, height =0.3, x =0.0, y =0.3) +draw_plot(tdw, width =0.49, height =0.3, x =0.5, y =0.3) +draw_plot(hi , width =0.49, height =0.3, x =0.0, y =0.0) +draw_plot(wue_t, width =0.49, height =0.3, x =0.5, y =0.0) +draw_plot_label(label =c("a", "b", "c", "d", "e", "f"),x =c(0.06, 0.56, 0.06, 0.56, 0.06, 0.56),y =c(0.89, 0.89, 0.59, 0.59, 0.29, 0.29))ggsave(plot = plot, "files/Fig2.tiff", units ="cm", width =28, height =25)"files/Fig2.jpg"%>%include_graphics()
Traits measured in 15 potato genotypes under well-watered (WW) and water deficit (WD) condition. (A-B) Chlorophyll concentration. (C) Tuber dry weight. (D) Relative chlorophyll content. (E) Harvest Index. (F) Tuber Water Use Efficiency. Error bars indicate standard error (n = 5). Days after planting (dap).
Relationships among agro-morphological traits evaluated in well-watered (WW) and water deficit (WD) treatments based on Pearson correlation and Euclidean distance measured in 15 potato genotypes.
Where: Chlorophyll Concentration (SPAD), Plant height (HGT; cm), Relative water content (RWC; %), Leaf osmotic potential (LOP; MPa), Leaf dry weight (LDW; g), Stem dry weight (SDW; g), Root dry weight (RDW; g), Tuber dry weight (TDW; g), Tuber number (NTUB; N°), Total transpiration (TRS; mL), Leaf area (LFA; cm2), Root length (RTL; cm), Total dry biomass (TDB; g), Harvest index (HI), Specific leaf area (SLA; cm2g-1), Relative chlorophyll content (RCC), Biomass water use efficiency (WUEB; gL-1), Tuber water use efficiency (WUET; gL-1).
Principal Component Analysis (PCA) from variables measured in 15 potato genotypes under well-watered (WW) and water deficit (WD) condition. (A) PCA for the variables. (B) PCA for the genotypes under WW and WD.
Where: Chlorophyll Concentration (SPAD), Plant height (HGT; cm), Relative water content (RWC; %), Leaf osmotic potential (LOP; MPa), Leaf dry weight (LDW; g), Stem dry weight (SDW; g), Root dry weight (RDW; g), Tuber dry weight (TDW; g), Tuber number (NTUB; N°), Total transpiration (TRS; mL), Leaf area (LFA; cm2), Root length (RTL; cm), Total dry biomass (TDB; g), Harvest index (HI), Specific leaf area (SLA; cm2g-1), Relative chlorophyll content (RCC), Biomass water use efficiency (WUEB; gL-1), Tuber water use efficiency (WUET; gL-1).
# tabsmr %>% sheet_write(gs, data = ., sheet = "tabS1")
13 Supplementary Figure 1
var <-get_pca_var(pca)tmp <-tempfile(fileext =".png")ppi <-300png(tmp, width=3.8*ppi, height=10*ppi, res=ppi)corrplot(var$cor, method="number",tl.col="black", tl.srt=45,)graphics.off()pt1 <- png::readPNG(tmp) %>% grid::rasterGrob(interpolate =TRUE)pt2 <-fviz_eig(pca, addlabels=TRUE,hjust =0.05,barfill="white",barcolor ="darkblue",linecolor ="red") +ylim(0, 50) +labs(title ="PCA - percentage of explained variances",y ="Variance (%)") +theme_minimal()pt3 <-fviz_contrib(pca,choice ="var", axes =1, top =10,fill="white",color ="darkblue",sort.val ="desc") +ylim(0, 18) +labs(title ="Dim 1 - variables contribution") pt4 <-fviz_contrib(pca,choice ="var", axes =2, top =10,fill="white",color ="darkblue",sort.val ="desc") +ylim(0, 18) +labs(title ="Dim 2 - variables contribution") plot <-ggdraw(xlim =c(0.0, 1.0), ylim =c(0, 1.0))+draw_plot(pt1, width =0.4, height =0.99, x =0.6, y =0.0) +draw_plot(pt2, width =0.6, height =0.34, x =0.03, y =0.66) +draw_plot(pt3, width =0.6, height =0.34, x =0.03, y =0.33) +draw_plot(pt4, width =0.6, height =0.34, x =0.03, y =0.0) +draw_plot_label(label =c("a", "b", "c", "d"),x =c(0.005, 0.005, 0.005, 0.65),y =c(0.999, 0.67, 0.34, 0.999))ggsave2(plot = plot, "files/SFig1.tiff", height =25, width =30, units ="cm")"files/SFig1.jpg"%>%include_graphics()
Principal Component Analysis (PCA). (A) Percentage of the explained variance for each dimension. (B) Variance contribution of the first 10 variables in the dimension 1. (C) Variance contribution of the first 10 variables in the dimension 2. (D) Correlation between the studied variables and among the first 5 dimensions. The reference dashed lines on the bar plot corresponds to the expected value if the contribution between the variables where uniform.
Tuber yield performance from two contrasting potatoes genotypes. Genotype CIP 398203.244 with good performance under well-watered (WW) with reduced yields during water deficit (WD) condition. Genotype CIP 398190.89 with good response under well-watered (WW) and water deficit (WD) treatment. Each group represent one replication (n = 5). Pictures were taken using the 5 cm scale (black/white segment = 1 cm) displayed alongside the tubers.